perm filename CHKUP.F4[1,LCS] blob
sn#088081 filedate 1974-02-16 generic text, type T, neo UTF8
00010 DIMENSION INP(8),NXT(4),RN(9),JNP(7,50),JXT(4,50),SN(9,50)
00020 1 ,MINP(84)
00100 1 FORMAT(84A1)
00150 JJ=0
00200 N='ACT'
00300 CALL IFILE(1,N)
00400 3 READ(1,1,END=2)MINP
00500 DO 4 K=1,7
00600 IF(MINP(K).NE.'L'.OR.MINP(K+1).NE.'C'.OR.MINP(K+2).NE.'S')
00625 1 GO TO 4
00650 JJ=JJ+1
00660 IF(JJ.GT.50)CALL EXIT
00662 DO 50 J=1,84
00664 50 IF(MINP(J).EQ.' ')MINP(J)=' '
00666 C 1ST ABOVE IS TAB, THEN SPACE.
00670 TYPE 1,MINP
00700 DO 5 J=1,7
00800 5 JNP(J,JJ)=INP(J)
00900 DO 6 J=1,4
01000 6 JXT(J,JJ)=NXT(J)
01100 DO 7 J=1,9
01200 7 SN(J,JJ)=RN(J)
01300 GO TO 3
01310 4 CONTINUE
01320 GO TO 3
01400 2 N='WEUNS'
01500 CALL OFILE(21,N)
01600 DO 8 K=1,JJ
01700 8 WRITE(21,9)(JNP(J,K),J=1,8),(JXT(J,K),J=1,4),(SN(J,K),J=1,9)
01800 9 FORMAT(1X9A1,I3,2A5,2(F5.0,':',F3.0),F5.0,F5.0,':',F3.0,F6.0,
01850 1 F8.2)
01900 END